home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d916.lha / WBrain / InstallMe! next >
Text File  |  1993-10-04  |  3KB  |  145 lines
  1. ; An installation-script for WBrain
  2.  
  3. (set #programmer     "Sean Russell")
  4. (set #version        "V1.2")
  5. (set #mainprog       "WBrain")
  6. (set #sourcecode     "WBrain.e")
  7. (set #doc            "WBrain.doc")
  8. (set #guide          "WBrain.guide")
  9. (set @default-dest   "SYS:")
  10.  
  11. (set mainsize     12932)
  12. (set reqsize      38104)
  13. (set gadsize      16784)
  14. (set sourcesize   20158)
  15. (set docsize      13322)
  16. (set guidesize    13672)
  17.  
  18. (set done (+ mainsize reqsize gadsize sourcesize docsize guidesize))
  19.  
  20. (complete 0)
  21.  
  22. (set progs
  23.    (askoptions
  24.       (help    @askoptions-help)
  25.       (prompt  "Select parts of the package to be installed:")
  26.          (choices "WBrain"
  27.                   "Libs"
  28.                   "Docs"
  29.                   "Amiga_E Sourcecode"
  30.                   (default 31)
  31.          )
  32.    )
  33. )
  34.  
  35.  
  36. (if (IN progs 0) (
  37.    (set gamedest
  38.       (askdir
  39.          (prompt "Select in which drawer to intall the game:")
  40.          (help @askdir-help)
  41.          (default @default-dest)
  42.       )
  43.    )
  44. ))
  45.  
  46.  
  47. (if (IN progs 1) (
  48.    (set libsdest
  49.       (askdir
  50.          (prompt "Select in which drawer to install the libraries:")
  51.          (help @askdir-help)
  52.          (default "Libs:")
  53.       )
  54.    )
  55.    (set libs
  56.       (askoptions
  57.          (help @askoptions-help)
  58.          (prompt "Select libraries to install:")
  59.          (choices "ReqTools library V38.1022"
  60.                   "GadToolsBox library GTX_LIB 38.45"
  61.                   (default 31)
  62.          )
  63.       )
  64.    )
  65. ))
  66.  
  67. (if (IN progs 2) (
  68.    (set docsdest
  69.       (askdir
  70.          (prompt "Select in which drawer to install the documentation:")
  71.          (help @askdir-help)
  72.          (default @default-dest)
  73.       )
  74.    )
  75.    (set docs
  76.       (askoptions
  77.          (help @askoptions-help)
  78.          (prompt "Select documentation forms to install:")
  79.          (choices "WBrain.guide"
  80.                   "WBrain.doc"
  81.                   (default 31)
  82.          )
  83.       )
  84.    )
  85. ))
  86.  
  87. (if (IN progs 3) (
  88.    (set sourcedest
  89.       (askdir
  90.          (prompt "Select in which drawer to install the sourcecode:")
  91.          (help @askdir-help)
  92.          (default @default-dest)
  93.       )
  94.    )
  95. ))
  96.  
  97. (if (IN progs 0) (
  98.    (copyfiles (source #mainprog)
  99.             (dest gamedest)
  100.             (infos)
  101.    )
  102. ))
  103. (complete (/ (* (set sofar (+ sofar mainsize)) 100) done))
  104.  
  105. (if (IN progs 1) (
  106.    (if (IN libs 0) (
  107.       (copylib(source   "libs/reqtools.library")
  108.             (dest    libsdest)
  109.             (infos)
  110.       )
  111.       (complete (/ (* (set sofar (+ sofar reqlibsize)) 100) done))
  112.    ))
  113.    (if (IN libs 1) (
  114.       (copylib (source "libs/gadtoolsbox.library")
  115.                (dest libsdest)
  116.                (info)
  117.       )
  118.       (complete (/ (* (set sofar (+ sofar gadlibsize)) 100) done))
  119.    ))
  120. ))
  121.  
  122. (if (IN progs 2) (
  123.    (if (IN docs 0) (
  124.       (copyfiles (source #guide)
  125.                (dest docsdest)
  126.                (infos)
  127.       )
  128.       (complete (/ (* (set sofar (+ sofar guidesize)) 100) done))
  129.    ))
  130.    (if (IN docs 1) (
  131.       (copyfiles (source #doc)
  132.                (dest docsdest)
  133.                (infos)
  134.       )
  135.       (complete (/ (* (set sofar (+ sofar docsize)) 100) done))
  136.    ))
  137. ))
  138.  
  139. (if (IN progs 3) (
  140.    (copyfiles (source #sourcecode)
  141.             (dest sourcedest)
  142.             (infos)
  143.    )
  144. ))
  145. (complete 100)